MacFormat 1995 May/macformat-024.iso/Demos/DTP/HomePublisher Demo/AHP Pouch/AutoCreate/Business ID/_Memo Elegant/_Memo Elegant

Text File | 1993-09-17 | 11.0 KB | 372 lines | [SGPA/SCPG]

on Build
set lockscreen to true
Set ShuffleTextObjects to false

put measurements into tempMeasurements
set measurements to points
--newpublication pages 1 columns 0 PageWidth 594 PageHeight 841 pageorientation portrait topmargin 0 bottommargin 0 leftmargin 0 rightmargin 0
newpublication pages 1 columns 0 pageorientation portrait topmargin 36 ¬
bottommargin 36 leftmargin 36 rightmargin 36

--set gridsettings to 18,18
set displayguides to false
set displayinvisibles to false
set displaynotes to true
set facingpages to false
set displaycolorsepcutouts to false
set gridsnap to false
set lockguides to false
set magneticguides to true
set menuhelp to true
set printcoloroptions to false
set printcolornames to true
set printcutouts to true
set printregistrationmarks to false
set showgraphics to true
set showgrid to false
set shownoteheaderdate to true
set shownoteheadertext to true
set shownoteheadertime to true
set smartquotes to true
set dialogupdatedelay to normal
set drawingtoolpreference to toolSelected
set guidespreference to front
set numberformat to 0.######
set palettepreference to anywhere
set printmarksoptions to no
set printpageoptions to all
set printtypeoptions to publication
set view to actual
set itemdel to ","
set worddel to " "
set linedel to cr
set graphicresizepreferences to 300
set savepubreminder to 15
set spotcolor 1 to 0,0,0
set spotcolor 2 to 65535,65535,65535
set spotcolor 3 to 62167,2134,34028
set spotcolor 4 to 0,32768,4528
set spotcolor 5 to 577,43860,60159
set spotcolor 6 to 56683,2242,1698
set spotcolor 7 to 0,0,54272
set spotcolor 8 to 64512,62333,1327
set linepattern to 1
set fillpattern to 2
set color to 1
set framelinetype to 1

-- •••• object 1••••
draw Line 32,124,559,124
set name of last object to "Object 1"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 1
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,527,0

-- •••• object 2••••
open story "Address"
draw rectangle 35,127,560,172
close story
set name of last object to "Address, Memo C"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 0
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

-- •••• object 3••••
open story "Company Name"
draw rectangle 36,81,559,110
close story
set name of last object to "Company Name"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

-- •••• object 4••••
draw Rectangle 275,68,318,74
set name of last object to "Object 4"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 1
set linepattern of last object to 1
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,43,4

-- •••• object 5••••
open story "Place Message or Remarks here."
draw rectangle 35,336,559,750
close story
set name of last object to "Message"
set locked of last object to false
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

-- •••• object 6••••
open story "Title Memo"
draw rectangle 35,173,558,214
close story
put "Memo" into story "Title Memo"
select all text in story "Title Memo"
set styleRecomposition to false
set textfont to "Helvetica"
set textsize to 24
set textface to smallcaps
set rulerJustification to center
set styleRecomposition to false

set name of last object to "Title Memo"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

-- •••• object 7••••
draw Line 31,212,557,212
set name of last object to "Object 1"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 1
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,526,0

-- •••• object 8••••
draw Rectangle 243,207,338,213
set name of last object to "Object 8"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 1
set linepattern of last object to 1
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,95,6

-- •••• object 9••••
draw Rectangle 31,282,561,289
set name of last object to "Object 13"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 1
set linepattern of last object to 1
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,529,4

-- •••• object 10••••
draw Rectangle 36,750,564,753
set name of last object to "Object 14"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 1
set linepattern of last object to 1
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,529,4

-- •••• object 11••••
draw Line 39,779,299,779
set name of last object to "Object 15"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 1
set linepattern of last object to 1
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,260,0

-- •••• object 12••••
open story "Title Signature"
draw rectangle 39,784,163,825
close story
put "Signature" into story "Title Signature"
select all text in story "Title Signature"
set textfont to "Helvetica"
set textface to italic

set name of last object to "Object 12"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

-- •••• object 13••••
open story "Title From"
draw rectangle 32,245,103,270
close story
put "From:" into story "Title From"
select all text in story "Title From"
set textfont to "Helvetica"
set textface to italic

set name of last object to "Object 13"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

-- •••• object 14••••
open story "From"
draw rectangle 105,245,334,270
close story
set name of last object to "Object 20"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

-- •••• object 15••••
open story "Date"
draw rectangle 388,219,563,241
close story
set name of last object to "Object 21"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

-- •••• object 17••••
open story "Attention"
draw rectangle 106,219,335,243
close story
set name of last object to "Object 25"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

-- •••• object 18••••
open story "Title Attention"
draw rectangle 32,219,100,243
close story
put "Attention:" into story "Title Attention"
select all text in story "Title Attention"
set textfont to "Helvetica"
set textface to italic

set name of last object to "Object 18"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,68,24

-- •••• object 20••••
open story "Title Date"
draw rectangle 336,218,382,240
close story
put "Date:" into story "Title Date"
select all text in story "Title Date"
set textfont to "Helvetica"
set textface to italic

set name of last object to "Object 20"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,46,22

-- •••• object 21••••
open story "Title Subject"
draw rectangle 34,290,557,331
close story
put "Subject:" into story "Title Subject"
select all text in story "Title Subject"
set styleRecomposition to false
set textfont to "Helvetica"
set textface to italic
set rulerjustification to center
set textsize to 14
set styleRecomposition to true

set name of last object to "Object 21"
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 2
set linepattern of last object to 0
set shadowpattern of last object to 1
set textwrap of last object to none
set color of last object to 1
set shadowoffset of last object to 0
set croprectangle of last object to 0,0,0,0

set measurements to tempMeasurements

PublicationSetup columns 1
end Build

    ›o<
B
Ï